##########################################
## "Voters get what they want"          ##
##########################################
## Heinrich, Kobayashi, Long            ##
##########################################

##          
## TSCS analysis of interaction models, aid ~ hierarchy, human rights violations, news
## Script 06
## June 29, 2017


## Load data
############
load("output/data_SH.Rdata")
load("output/data_EH.Rdata")


## Specifications
################# 
A <- c("Economic hierarchy", "Security hierarchy")
news_sets <- data.frame(Name=c("Top 40", "Top 20", "Lowest 40", "Lowest 20"), 
                        Lower=c(0.6, 0.8, 0.0, 0.0),
                        Upper=c(1.0, 1.0, 0.4, 0.2))


## Estimations
##############
foreach(i=1:length(A)) %dopar% estimate_A1_interaction(to_estimate=i, niter=niter, burnin=burnin, chains=chains, thin=thin, A=A, news_set=news_set)



